home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp® 2.0.1 Tutorial / Chapter 04 / UIconEdit.p < prev   
Encoding:
Text File  |  1990-10-25  |  389 b   |  32 lines  |  [TEXT/MPS ]
  1. {Copyright © 1989 by Apple Computer, Inc.  All rights reserved.}
  2.  
  3. UNIT UIconEdit;
  4.  
  5.  
  6. INTERFACE
  7.  
  8.  
  9. USES
  10.     UMacApp;
  11.     
  12.     
  13. CONST kFileType = 'IDOC'; 
  14.       kSignature = 'IÇED';
  15.  
  16.  
  17. TYPE 
  18.     TIconApplication = OBJECT(TApplication)
  19.  
  20.         PROCEDURE TIconApplication.IIconApplication(iconFileType: OSType);
  21.             {Initializes the application and globals.}
  22.  
  23.     END;
  24.  
  25.  
  26.  
  27.  
  28. IMPLEMENTATION
  29.  
  30.     {$I UIconEdit.inc1.p}
  31.  
  32. END.